home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
basicos2.zip
/
MATH.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-02-11
|
416b
|
13 lines
1 rem *
2 rem *
3 rem *_MATH_SAMPLE_FOR_NITROUSBASIC
4 rem *
5 rem *
10 cls
11 XDELTA=35 :YDELTA=20 :XSCREEN=80 :YSCREEN=50 :GRANULARITY=0.1 :PI=3.14
20 cursor (XSCREEN/2 ,YSCREEN/2 ):print "<-- Center"
25 for THETA=0 to PI*2 step GRANULARITY
40 XPOS=XSCREEN/2 +cos (THETA)*XDELTA:YPOS=YSCREEN/2 +sin (THETA)*YDELTA
50 cursor (XPOS,YPOS)
55 print "Wow":next THETA:cursor (0 ,49 ):print "All Done":end